home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh12a.d64
/
bam neu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
213b
|
13 lines
1 PRINT"[147]DISKETTE MIT SCHUTZ EINLEGEN UND TASTE DRUECKEN"
2 POKE198,0:WAIT198,1:POKE198,0
3 OPEN1,8,15
4 TR=1:SE=0:GOSUB12
5 FORI=1TO6
6 TR=I:SE=I:GOSUB12
7 NEXT
8 TR=35:SE=16:GOSUB12
10 CLOSE1:END
11 :
12 PRINT#1,"B-A 0",TR,SE
13 RETURN